home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / Actions.md next >
Text File  |  1992-08-18  |  2KB  |  67 lines
  1. (* handle global actions and comments *)
  2.  
  3. (* $Id: Actions.md,v 1.4 1992/08/07 15:13:51 grosch rel $ *)
  4.  
  5. (* $Log: Actions.md,v $
  6.  * Revision 1.4  1992/08/07  15:13:51  grosch
  7.  * allow several scanner and parsers; extend module Errors
  8.  *
  9.  * Revision 1.3  1991/12/04  16:21:41  grosch
  10.  * unified escape conventions for all tools
  11.  *
  12.  * Revision 1.2  1991/11/21  14:47:50  grosch
  13.  * new version of RCS on SPARC
  14.  *
  15.  * Revision 1.1  90/06/11  18:44:35  grosch
  16.  * layout improvements
  17.  * 
  18.  * Revision 1.0     88/10/04  14:26:32  vielsack
  19.  * Initial revision
  20.  * 
  21.  *)
  22.  
  23. DEFINITION MODULE Actions;
  24.  
  25. FROM TokenTab    IMPORT PosType;
  26. FROM StringMem    IMPORT tStringRef;
  27. FROM Strings    IMPORT tString;
  28. FROM Idents    IMPORT tIdent;
  29. FROM IO        IMPORT tFile;
  30. FROM Lists    IMPORT tList;
  31.  
  32. TYPE tActionMode = (Export, Global, Local, Begin, Close);
  33.  
  34. VAR ScannerName    : tIdent;
  35. VAR ParserName    : tIdent;
  36.  
  37. PROCEDURE PutComment (kind: tActionMode; kp: PosType; c: tList; cp: PosType);
  38.  
  39. (* Eintragen des zum Abschnitt DECL gehoerigen Kommentars *)
  40.  
  41. PROCEDURE GetComment (kind: tActionMode; VAR kp: PosType; VAR c: tList; VAR cp: PosType);
  42.  
  43. (* Lesen des zum Abschnitt DECL gehoerigen Kommentars *)
  44.  
  45. PROCEDURE PutAction (kind: tActionMode; a: tList; ap: PosType; c: tList; cp: PosType);
  46.  
  47. (* Eintragen einer Semantischen Aktion mit zugh. Kommentar *)
  48.  
  49. PROCEDURE GetAction (kind: tActionMode; VAR a: tList; VAR ap: PosType; VAR c: tList; VAR cp: PosType);
  50.  
  51. (* Lesen einer Semantischen Aktion mit zugh. Kommentar *)
  52.  
  53. PROCEDURE WriteActions (kind: tActionMode; f: tFile; Line: BOOLEAN);
  54.  
  55. (* Ausgabe der gesamten Deklaration des angegebenen Abschnitts auf eine Datei *)
  56.  
  57. PROCEDURE WriteSemanticAction (f: tFile; a: tList; t: CARDINAL);
  58.  
  59. (* Ausgabe der Semantischen Aktion 'a' auf Datei 'f' mit 2 * 't' *)
  60. (* Leerzeichen am Zeilenanfang *)
  61.  
  62. PROCEDURE WriteStringList (file: tFile; slist: tList);
  63.  
  64. (* Ausgabe einer tList auf file *)
  65.  
  66. END Actions.
  67.